#!/usr/bin/perl -w

use strict;
use warnings;
use utf8;
#use encoding "utf8", STDIN => 'utf8', STDOUT => 'utf8';
use open ':encoding(utf8)';
use Algorithm::Diff;


=info
This file is what calls each of the scripts which import data from the various sources
This script defines the order that they should be processed
It must secure the database connection and pass it in to the source parsers

=cut


#my %mss = (
#	greek_byzantine_2000_parsed => 1,
#	greek_textus_receptus_parsed => 1,
#	greek_tischendorf => 1,
#	greek_WH_UBS4_parsed => 1
#);
#
#open OUT, ">first-line.txt";
#
#foreach my $dir (keys(%mss)){
#	chdir $dir;
#	my $file = $dir . "_utf8.txt";
#	die "Not found: $file" if(!-e $file);
#	
#	my $count = 0;
#	
#	open MS, "$file";
#	while(<MS>){
#		next if /^#/;
#		chomp;
#		$count++;
#		
#		s/^(.+)\t+//;
#		my $ref = $1;
#		
#		my @parsings = /((?:G\d+\s+)?[\-0-9A-Z]+)/g;
#		s/(?:G\d+\s+)?[\-0-9A-Z]+//g;  #/G1080 -3S/
#		s/\s+/ /g;
#		#saysay OUT "$_";
#		
#		if($count == 100){
#			say $ref;
#			say OUT;
#			say join ', ', @parsings;
#			last;
#		}
#	}
#	
#	
#	
#	chdir '..';
#}

1;
